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COPYRIGHT 1983 


1 POKE: 580? 1 

2 MOUE=USR <1575 ? 33288,34408? 40> 

3 MOUE=USR<1575?33478»34422,11> 

8 PLAVERDAT=59sPOKE 752?1 

9 POKE 742?129 s POKE 741 ?0 

10 OPEN #2 ? 4 ? 0 ?"K s K" 

30 DIM ROOM*- < 16 > s DIM 2* < 16 > 

35 DIM X*<16>s DIM NAME* <28> 

48 DIM RMDAT<3? 48> 

50 DIM CODE<3?49> 

68 DIM KNOW<2? 28> 

78 FOR 1=1 TO 49 

72 READ DsCODE <2 ?I>=D 

73 NEXT I 

74 DATA 187 ?187? 187 ?187 ?187 ?187 ?187 

r* 5 DA 1 M .ti! ? .,!? 2 ? 32 ? 32 ? 32? 32! 

76 DATA 123?123 ?123?123?123 ?123?123 

77 DATA 123 ?123 ?123 ?123 ?123 ?123 ?123 

78 DATA 123?123?123?123?123?123?123 

79 DATA 126 ? 96 ?125 ?127 ?107? 8?124 
88 DATA 4 ?1? 6 ? 5 ? 3 ? 33? 38 

81 FOR 1=8 TO 49 

82 READ DsCODEC 1?I>=DsNEXT I 

83 DA T A 255 ? 8 ? 0 ? 8 ? 8 ? 8 ? 8 ? 8 ? 1 ? 1 ? 1 ? 1 ? 1 ? 1 ? 1 
84- Dm 1 A 2 ? 2 ? 2 ? 2 ? 2 ? 2 ? 2 ? 2 ? 2 ? 2 ? 2 ? 2 ? 2 ? 2 

85 DA I A 2 ? 2 ? 2? 2? 2? 2 ? 2 

86 DATA 3 ? 4 ? 5 ? 6 ? 7 ? 8 ? 9?18 ?11?12 ?13 ?14 

87 DATA 15?16 

108 PI I MEMT0P=742« L0MEMT0P=741 
120 ADDR=1664 
130 6ASEPAGE=136 
140 CSADR=BA8EPAGE*256 
158 i v IAPMEM= < BASERAGE+2 > *256 

152 LINEADR=155*256+188 

153 NTABLEADR=144*256+28 

154 A8SADR=154*256+236 

155 OMAPMEM=MAPMEM 

156 NAMEADR=152*256+132 
168 USCROL.=54277 

178 HIMAPMEM= I NT C MAPMETV256 > 

180 LOMAPMEM=MAPMEM”HIMAPMEM*256 
280 PIADDR= I NT < ADDR.-"256 > 

205 LADDR=ADDR.-HADDR*256 
210 LMSL0=ADDR+4 
215 I...MSN I =ADDR+5 
270 POKE. 512 ? 155 s POKE 513 ? 6 
288 GOSUB 1800 

298 CV= 1 s CX= 11 s MX=4 s |-1V= 1 s SI =8 s S= 18s LEUEL= 1 s OCT=0 

295 P=8s PM=0 s CURADR=35839sSMAX=10sSM=18 

296 MAPMEM=0MAPiiEM+488*LEUEL+SI *60 

297 HI MAPMEM= I NT C MAPMEIV256 > 

298 L 0MAPI v lEM=MAPMEM—HIMAPl v lEM*256 

299 GRAPHICS 8 

388 REM ************* 



316 WAIT=USR<1536 >sPOKE 559,8 
320 POKE 568 , LAD DR 
330 POKE 561., HADDR 
335 POKE 54286,1.92 

337 POKE LM3L0,LOMAPMEMsPOKE LMSHI,HIMAPOEM 

345 POKE 39970,240 

350 REM POKE 660,0s POKE 661,1.807 

360 POKE 752,1 

370 POKE 756,BASERAGE 

380 SETCOLOR 0,8,2s REM DARK BLUE 

381 8ETC0L0R 1,4,5s REM RED 

382 SETCOLOR 2,2,10s REM BORDER,VELLOW 

383 SETCOLOR 3,14,4s REM GREEN 

384 SETCOLOR 4,9,7s REM BG,BLACK 

398 FOR 1=0 TO 1.9 s POKE LI HE ADR+1,0 s NEXT I 

395 POKE L.IMEADR+10, 14 

396 POKE LINEADR+19,14 

400 R E M * * ** ** * * *:+::+: *:+: 

401 LI AIT=USR < 1536 > 

482 POKE 559,34 
405 GOSIJB 900 

410 GOSUB 28006 

490 ;K=0s GOTO 12080 

500 REM **** SCROLL UP **** 

51.8 SI=SI + 1 

520 IF SI>5 THEN SI=5:GOTO 648 
620 8CR0LUP=U8R<33824,MAPMEM> 

627 MAPMEM=OMAPMEM+LEUEL*480+SI*60 
630 IF UOID=1 THEN MAPMEM=131*256+8I*60 
635 POKE CURADR,OLDDAT 
640 RETURN 

700 REM **** SCROLL DOWN **** 

710 81=81-1 

728 IF SI<8 THEN S 1=0: GOTO 8.28 
758 SCROLDOWH=U3R<33120,MAPMEM > 

800 MAPMEM=OMAPMEM+LEUEL*480+SI*60 

8i0 IF UOID=1 THEN MAPMEM®131*256+8I*68 

815 POKE CURADR,OLDDAT 

820 RETURN 

908 POSITION 2,0 

910 ? " MAGIC OBJECTS LOCATION/STATUS" 

920 '? " * * * * * * * * * * * * *:+: * * * * * *:+ 1 ‘ 

930 ? "ROVAL SCEPTER." 

940 ? "BLUE CRVSTAl...." 

950 ? "WIZARDS’ STONE." 

955 ? "MAGIC SWORD." 

960 2 "MASTER KEV. .." 

965 ? "MAGIC RING.,.. --" 

970 ? "MAP OF THE VOID_" 

975 '? " “ 

980 2 " EMIL FORCES LOCATION" 

98 1 '? " Mn****************** * * * * * *:+: * * *** * " 


982 

? 

"DUNGEON TROLL„„„ 

II 

984 

? 

"SORCERER,....... 

II 

986 

'? 

"WITCH„ « , , „ „ w m tt « « 

II 

988 

Y 

“DARK CLOUD w „ K . 

II 

998 

? 

"GREMLIN.. 

II 

992 

Y 

"DRAGON.„........ 

It 


995 POSITION 0,1.9 

996 ■? " * * * * * * * * * ** * * * *:+: * * * * * * * + 11 

999 RETURN 

1000 REM ASSIGNMENTS 
1005 RESTORE 2015 

1018 MOUE=USR<1575,ASSADR-126,ASSADR,126 > 

2800 K=5 

2810 FOR 1=1 TO 3:READ D 





















2 015 D A T A 36, 4 2 ,44 

2020 K=K—1 : R=INT <RND<0 >*K> 

2025 X=ASSADR+R+995 RN=PEEK<X> 

2030 L= I NT < RH.-" i 00 > s RH=RH-100+1... 

2032 RMDAT<L,RH > =D 

2034 MOUE=USR < 1575, ASSADR+R+:!. 00, ASSADR+R+99, 26-R > 

2035 L.= I NT < RH.-" 100 > : RN=RN- 100+1.... 

2036 ? D * L? RH 

2037 NEXT I 
2040 K=:! 9 

2050 FOR 1=1 TO 11 
2052 READ D 

!.-!05 DA I H 3 t" , 38 , 39 43 :» 45 464- 7 4S 4*0 ? 4 .1. :» 4-9 

2054 K=K— 1: R= IHT < RHD < © > +!< > 

2055 X=ASSADR+R+103sRH=PEEK < X> 

2056 L= I HT < RH.-" 100 > 8 RH=RH- 180+L 

2060 RMDAT <I...,RH > =D 

2061 ? D,L 5 RH 

2062 MQUE=USR K 1575 :■ ASSADR+R+104 , ASSADR+R+103 , 22—R ’> 
2070 NEXT I 

2100 REM K=34 

2110 REM FOR I=36 TO 42 

2120 REM K=K~1sR=IHT<RHD <8 >+K> 

2130 REM X=ASSADR+R+83 sRM=PEEK< X > 

2135 REM L= I HT < RH--' 100 > s RH=RH-100+1.. 

2140 REM RMDAT <LnRH> = I 

2150 REM MOUE=USR < 1575, ASSADR+R+84, ASSADR+R+S3,43--R 
2160 REM NEXT I 
2200 i<=28 

2218 FOR 1=29 TO 35 

2220 K=K~15 R=INT <RHD <©>+K> 

2230 X=ASSADR+R+59sRN=PEEK<X > 

2235 L = I NT < RH.-" 100 > s RH=RN~ 100+1... 

2240 RMDAT<L,RH>=I 

22b@ MuUE=UsR1575 n ASSADR+R +60 ^ ASSADR+R+59 ? 6 i"'~R ’> 
2260 NEXT I 
2300 K=68 

2310 FOR 1=9 TO 28 

2320 K=K-1s R=INT < RHD<0>+K> 

2330 X=ASSADR+R+125 RN=PEEK<X > 

2335 L= l HT < RH.-" 100 > a RH=RH-100+L 
2340 RMDAT<L,RH >=I 

2350 MOUE=USR<1575,ASSADR+R+13,ASSADR+R+12,114-R> 

2360 NEXT I 

2400 K=25 

.2410 FOR 1 = 1 TO 8 

2420 R=IHT <RHD <0>*K> 

2430 X=ASSADR+RsRH=PEEK <X > 

2435 L= I HT < RH-" 180 > a RN=RH-180+1... 

2440 RMDAT < L., RH > = I 

2450 MOUE=USR <1575,ASSADR+R+1,ASSADR+R,126-R > 

2460 NEXT I 

3010 FOR 1=1 TO 7 

3020 KNOW <1,I> = I+7 a NEXT I 

3838 FOR 1=8 TO 14 

3840 KNOW <1,I> = I+35 sNEXT I 

3100 REM SEARCH 

3110 FOR 1=1 TO 14a? I 

3115 Dl=KHOUKl, I > 

3128 FOR J=0 TO 2 
3130 FOR K=© TO 48 
3140 D2=RMDAT<J,K> 

3158 IF D1=D2 THEN 3200 
3160 NEXT Ka POKE 34440,10 
3165 NEXT J 

■**:« »»DnriM kirrr ir;rii ikir*. h « oteid 


~r -j or.H 


3200 POP sPOKE 34440?0 


3210 RN=._T*100+K 
3220 KNOW<2 ?I>=RN 
3230 NEXT I 
350O RETURN 

1.0500 REM *** LOAD MAP *** 

10501. REM OPEN #4 ? 4 ? 0? " D s SCRND AT A. 3 " 

1.051.0 REM FOR I “MAPMEM+960 TO MAPMEM+479+960 

1.O520 REM INPUT #4? X 

1.0530 REM POKE I,X 

1.0540 REM NEXT I 

1.0550 REM CLOSE #4 

1.1.900 RETURN 

1.2000 REM *** MAIN LINE *** 

1.2005 X=255s POKE 764? 255 
.1.201.0 T=PEEK < 764 > 

1.2020 CON=PEEK < 53279 > 

1.20.25 IF TOG=l THEN GOSUB 1.5000 
1.2030 IF C0N=3 THEN GOSUB .1.3000 
12040 IF C0N=5 THEN GOSUB 500 
1.2050 IF CON“6 THEN GOSUB 700 
1.2060 IF T-255 THEN 1.201.0 
1.2070 GET #2 ? X 

12080 IF X=127 THEN GOSUB 14000 

1.2100 IF X= 155 AND PEEK<560>=32 THEN WAIT=USR< 1536> s POKE 560? 128s POKE 561? 6s GOTO 
1 2000 


1.2105 IF 
0 1.2000 
121.1.0 IF 
1.21.20 
12130 
12148 
1.2200 
12334 
12400 
1.2410 
1 2420 
1.2430 
1.2432 
12434 
1.2440 
.1.2450 
12451 
1.2452 
12453 
1.2455 
12456 
1.2457 
12460 
1.2475 
1.2480 
1.2485 
1.2490 
.1.2495 
12500 
1.2501 
12502 

1.2503 

1.2504 

1.2505 

1.2506 
1 2507 

12508 

12509 

12510 
12520 


IF 

IF 

IF 

RD= 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

RN= 

IF 

IF 

IF 

IF 


X= 1.55 AND PEEK < 560> = 128 THEN WA I T=USR < 1536 > s POKE 560 ? 32 s POKE 561. ? 156 s GO 

X=45 THEN OCV=CV s CV-CV-3 s OMV=MV s MV=MV- 1. s DOOR=PEEI< < CUR ADR-20 > 

X=61. THEN OCV=CV s CV-CV+3 s OMV=MV s MV=MV+1 s DOOR=PEEK < CURADR+20 > 

X=43 THEN OCX=CX s CX=CX-3 s OMX=MX s MX=MX-1. s DOOR=PEEK <CURADR-1 > 

X=42 THEN OCX=CX s CX=CX+3 s OMX=MX s MX=MX+1 s DOOR=PEEK < CURADR+ 1 > 

=DOOR s DOOR=DOOR- < I NT < D00R.-'64 > *64 > 

MV<1 THEN MV=1 

X=45 THEN OCV-CV+3 

X=61 THEN OCV=CV—3 

CX< 2 THEN CX=2 s MX=1sGOTO 12000 

CX > 17 THEN CX= 17 s MX=6 s GOTO 1.2080 

MV>8 THEN MV=8 

MV<1 THEN MV=1 

CV< 1. THEN CV=OCVs GOTO 1:2000 

CV >22 THEN CV=0CV*60T0 12080 

= < MV-1> +6+MX 

UOI D= 1. THEN 12600 

DOOR=0 THEN 12485 

EXPL=1 THEN 12485 

RD=88 OR RD=81 OR RD=82 OR RD=83 THEN 12460 


GOTO 12475 
IF CODE<3? 47> = 1 


IF X=45 OR X=61 THEN CV=OCVs MV—OMV*GOTO 12880 
IF X=42 OR X=43 THEN CX=OCXs MX=OMXs GOTO 1.2000 
IF X=60 
IF X=45 

IF X=61 AND CV>4 AND 
IF EXPL-0 THEN 1.251.0 
T 0 G = 1 s 0 L D A D R=C U R A D R 
C U R A D R=0 M A P M E M+C V * 2 8+C X +• L E U E).... * 4 8 0 
POKE OLDADR ?OLDDAT 
OL.DDAT=PEEK < CURADR > 

T-OLDDAT» IF T=64 OR T=0 OR 7 = 1.28 OR T=192 THEN TOG—0s CURDAT=25s GOTO 12587 

CURDAT=OLDDAT 

POKE CURADR? CURDAT 

GOSUB 30000 

GOTO 12800 

0 L D A D R=C U R A D R 

CURADR=OMAPMEM+CV*20+CX+LEUEL.*480 


OR X=61 
OR X=43 
OR X=62 
AND CV>1 


THEN 

THEN 

THEN 

THEN 

AND 


12485 

CV=OCVs MV—OMVsGOTO 
CX=OCXs MX=OMXsGO TO 
GOSUB 31.000 
CV<19 THEN GOSUB 700 
CV< 22 THEN GOSUB 580 





1.2530 POKE OLD ADR, GL..DD AT 
12540 0LDDAT-PEEK<CURADR > 

12550 CURDAT=PLAVERDAT 

12560 POKE CURADR,CURDAT 

1.2565 GOSUB 30000 s REM GET ROOM MAME 

12570 GOTO 270O0sREM GET WHO'S THERE 

12580 GOTO 12000 

12600 IF DOOR—0 THEN 1.265© 

12607 T—CURADR 

12610 IF X=42 THEM 1.2612 

12611 GOTO 12628 

12612 D=174 sPOKE T-19,D 
12614 POKE T+l,D 

12617 POKE T+21,D 

12618 CX-OCXs MX-OMM s GOTO 12000 

12620 IF 2-43 THEM 12622 

12621 GOT0 12630 

12622 D=174 sPOKE T-21,D 
12625 POKE T— 1,D 
.1.2627 POKE T+l9, D 

12623 CM-OCXsMX-OMX sGOTO 12000 

12630 IF 2=45 THEM 12632 

12631 GOTO 12640 

12632 D-174 sPOKE T-21,D 
12635 POKE T—2 @,D 

12637 POKE T—19,D 

12638 CV=OCVs MV-OMV s GOTO 12000 
12640 D = 17 4 s P 0 K E T +19, D 
12643 POKE T+20,D 

12645 POKE T+21,D 

12646 CV-OCV s MV=OMVs GOTO 12000 

12650 IF 2=45 AMD CV>1 AMD CVC19 THEN GOSUB 700 
12660 IF 2=61 AMD CV>4 AMD CV<22 THEM GOSUB 500 
12665 IF C2=11 AMD CV=10 THEM 12700 
:i 2670 0L.DADR=CURADR s TOG= 1 

12671 CURADR=131*256+CV#23+CX 

12672 POKE OLDADR,OLDDAT 

12673 OLDDAT=PEEK<CURADR >sT-OLDDAT 

12674 IF T=0 OR T-64 OR T=128 OR T-192 THEN TOG-0sCURDAT=PLAVERDATsGOTO 12678 
12676 CURDAT=OLDDAT 

12678 POKE CURADR,CURDAT 
12690 GOTO 12000 

12700 MAPMEM=0MAPMEM+480*2+SI*60 
12705 POKE CURADR,OLDDAT 
12710 LEUEL.-2sUOID=0:TOG-1 

12715 CURADR=OMAPMEM+CV*20+C2+2*480 

12716 OLDDAT-PEEK<CURADR >:T-OLDDAT 

12717 IF T=0 OR T=64 OR T=128 OR T='192 THEM TOG-0s CURDAT=PLAVERDAT “ GOTO 12719 

12718 CURDAT-OLDDAT 
1.2719 POKE CURADR, CURDAT 

12720 HIMAPMEM-1 NT < MAPMEM.-"256 > 

12730 LOMAPMEM-MAPMEM-HIMAPMEM*256 
12740 WAIT-USR <1536> 

12750 POKE LMSLO, L.OMAPMEM s POKE LMSHI, HI MAPMEM 

12752 SETCOLOR 0,3,2 

12753 SETCOLOR 1,4,5 

12754 SETCOLOR 2,2,10 

12755 SETCOLOR 3,14,4 

12756 SETCOLOR 4,9, ? 

1.2768 GOSUB 30000 

12770 G 0 T0 12000 
12800 D-D+64 

12810 IF D>255 THEM D-D-128 
12820 RETURN 
13000 REM UOID SETUP 
i5002 T-I 31*256 


i ,5.uu,:;. i-UK ,.i=u iu 
.1.3004 FOR 1=0 TO .19 

13005 D*PEEK<T+J*20+I>a POKE 40955,10 

13006 IF 0=174 THEN POKE T+J*28+I,110 

13007 NEXT I 

13008 POKE 40955:. 0 
1.3010 NEXT J 

1.3015 UOI D= 1 s 8ETC0L0R 48,0 
13020 SET COLOR ©8, 2 
13030 SET COLOR 1., @, 8 
1.3040 S E T C 0 L.. 0 R 2 , 4 , 4 
13050 SETCOLOR 3, 4,4 

1.3060 IF CODE K 3, 49> = 1 THEN SETCOLOR 1,4,4 
13100 SI = I NT < RND0 > *6 > 

1.3110 CV=S I *3+4 

1.3120 MV=SI+2 

13130 MX* I NT RND < 0 > *6 > +1 

.1.3140 CX=MX*3-1 

1.3200 POKE CURADR, OLDDAT 

13210 MAPMEM*131*256+SI*60 

13220 HIMAPMEM* I NT < MAPMEM-'256 > 

13230 L0MAPl v iEM=MAPMEM™HI MAPMEM*256 
13240 WAIT*USR<1536 >a POKE 559,8 

1.3250 POKE L.MSLO, LOMAPMEM a POKE L..MSH I,HI MAPMEM a POKE 559,34 
1.3255 CURADR* 13.1. *256+CV*20+CX 

13256 OLDDAT=PEEK<CURADR > 

13257 0L.DADR=CUR ADR a T=OLDD AT a TOG* 1 

13260 IF T=0 OR T*64 OR T=1.28 OR T*192 THEN TOG*© a CURD AT=F'L AVERDAT a GOT 0 1.32 
1.3265 CURDAT*PLAVERDAT 
1.3270 POKE CURADR, CURDAT 
13480 MOUE*USR < . 1 . 575 , 33280 , 40880 , 160 > 

1.3485 POSITION 2,21 

13486 ? " ** VOU ARE IN THE UOID **" 

1.3500 RETURN 

14000 REM EXPLORE SETUP 

1.4085 IF UO ID* 1 THEN 14608 

1.4180 IF EXPL=0 THEN EXPL-laGOTO 1.4280 

14118 EXPL=0 aGOTO 14308 

1.4200 SCURADR=CURADRa SOLDDAT=QLDDAT 

14218 SLEUEL*LEUELa POKE CURADR,25 

14228 SCX=CX a SCV=CV a SSI =S I a SMX=MX a SMV=MV 

1.4228 REM 37,56, 48,44,47,50,37,0,8,8,0, ©, 8, 0 

14230 MOUE=USR<1575,33450,LINEADR,20> 

1.4240 GOTO 1.4500 

14245 MOUE=USR<1575,33288,LINEADR,28> 

14250 REM CURADR=SCURADR a 0L.DDAT*S0LDDAT 

1.4380 IF SLEUEL=2 AND CODE<3,44> = 1 AND SMV=4 AND SMX=4 THEN 1.4400 

14310 SI=SSI a MV=SMVa MX=SMX 

1.4328 LEUEL-SLEOEL. a TOG* 1 

14330 CX=SCXa CV=SCVa CURDAT=PLAVERDAT 

1.4340 POKE CURADR, OLDDAT 

14345 MOUE=USR <1575,33288,LINEADR,2©> 

1435© G 0SUB 280©0 
14360 GOSUB .28208 
1.4378 GOTO 1.4588 
14400 EXPL«© 

14410 MOUE=USR<1575,39808,LINEADR,28> 

14428 GOSUB 28808 
1.4430 GOSUB 28200 

14500 MAPMEM=OMAPMEM+480*LEUEL+SI*68 
14510 HI MAPMEM* I NT < MAPMEM.-"256 > 

14528 L0MAPMEM*MAPMEM—HIMAPMEM*256 
1453© WAIT=USR<1536 > 

14540 POKE LMSLO,LOMAPMEMa POKE LMSHI,HIMAPMEM 
1.4598 POKE CURADR, PL.AVERDAT 
14608 RETURN 


15088 REM TOGGLE 

15188 IF TOGGLE-1 THEM TOGGLE®8s POKE CURADR,OLDDATs GOTO 15388 
15288 TOGGLE*1aPOKE CURADR,8 
15388 RETURN 

16088 REM ** RESULTS ** 

168.1.8 REM KNIGHTS 

16812 IF 0BJO3 THEM 16828 

16015 IF C0DEC3,48>=0 THEM 16828 

16818 ? "HE CAM HOT SEE YOU"sGOTO 16868 

16028 R=INTC RMDC 8 >*3> 

16038 S=S~R 

16840 GOSUB 28808 

16058 IF OBJC=3 THEM 16078 

16068 GOTO 16108 

16878 R=INTC RMD C 0>*47> ■+•1 

16875 D“RMDATC 8,R > 

16880 IF D>0 THEM 16078 
16898 RMDATC 8,R >=36 sOLDDAT*© s T08=8 
16095 RMD AT < LEU EL., RM > *0 

16098 POSITION 23,12s? "** UNKNOWN **" 

16100 RETURN 
17088 REM CLOUD 

17010 RMDAT < LEUEL,RM >=8 sOLDDAT=8 
17028 TOG*©sP=P-18 
17830 R=INT<ENDC 0>*47 > +1 
17040 D=RMDATC1,R>sIF D>0 THEM 17838 
17050 RMDATC1,R >=39 

17060 POSITION 23,15s? "** UNKNOWN **" 

17188 SI = INTC RMD < 8 >*6 > 

17118 CV=SI*3+4 
1 7115 MV=SI+2 
17120 MX*INT<RNDC 8>*6 > +1 
17138 LEUEL*INTC RMD < 8>*2 > 

17140 CX*MX*3~1 
17158 POKE CURADR,8 

17160 CURADR=0MAPMEM+CV * 28+CX+LE UEL.*4 80 
17178 D-PEEKC CURADR >sTOG*1sPOKE CURADR,D aOLDDAT*D 

17174 IF D*0 OR D=64 OR D*192 OR D*128 THEM TOG*©s CURDAT*PLAVERDATs POKE CURADR,C 
RDAT 

17188 MAPMEM*OMAPMEM+488*LEUEL.+SI *60 
17198 HIMAPMEM* I NT < MAPMEM.'256 > 

17200 LOMAPMEM*MAPMEM—HIMAPMEM*256 
17218 WAIT=USRC1536 > 

17228 POKE LMSHI, HI MAPMEM: POKE LMSL.0, LOMAPMEM 

17227 GOSUB 38888 

17228 ? "THE CLOUD HAS TRANSPORTED YOU HERE" 

17580 RETURN 

18000 REM SORCERER 
18010 P«P~10 

18100 RMDAT C LEUEL,RM >*0sTOG*© 

18185 OLDDAT*© 

18118 GOSUB 32000 
18150 RMDAT < L., RM > =37 

18160 POSITION 23,13s? "** UNKNOWN **" 

18200 IF CODECS,48>=0 THEM 18308 
18.21 © CODE < 3, 48 > =8 s POS ITI OH 23,7 
18215 OCT*OCT — 1 a CODE C 3,13>=8 
18228 PRINT "!!! STOLEN 11 !" 

18238 GOSUB 32888 

18240 KNOW C 2,13>=LRN8RMDAT C L,RN >=48 
1830© IF CODECS,45>=0 THEM 18408 
18 310 C 0 D E C 3,4 5 > = 0 s O C T=0 C T — 1 
18315 CODE C 3,18 >=0 
18320 POSITION 23,4 
18338 ? "Ill STOLEN !‘!" 


t M I'll!M V) 1-1 

:i 8350 RMDA T C l. , RH > =45 s KNOW < 2, :t. 0 > =LRN 
:!. 8360 QOSUB 28200 

18400 IF CODEC3, 43>=0 THEN 18490 
18418 CODE <3, 43 >=8s CODE C 3 , 8 > =0 
1.8420 POSITION 23,2 
1.8430 ? " ‘ ! ! STOLEN ! f ! " 

1.8440 QOSUB 32008 

18450 RMDAT CL, RH >=43: KNOW C 2, 8 >=LRN 

1.8490 QOSUB 28200 

1.8495 QOSUB 13000 

1.8500 RETURN 

1.8600 REM GREMLIN 

1.8610 P=P-~10 

1.8620 RMDAT C LEUEL, RN > =0 

1.8630 OLDDAT=0 

18640 QOSUB 320005 TOG=0 

18650 RMDATCL,RN>=40 

1.8660 POSITION 23, 165? UNKNOWN ** 

1.8670 IF CODEC3, 46> =0 THEN 1.8750 
18680 OCT=OCT—1sPOSITION 23,5 
1.8690 ? " ! 1 ! STOLEN ! ! ! " 

18695 CODE C3,46>=8sCODEC3, 11>=0 
18700 QOSUB 32000 

18710 KNOW C 2, 11 > =LRN s RMDAT C L, RN > =46 
18720 SM AX=10 

1.8750 IF CODECS,47>=0 THEN 18888 
18760 OCT=OCT-1a POSITION 23,6 
18770 ? "!!i STOLEN 1 !!" 

18775 CODEC3,47 >=85 CODE<3,12>=0 
1.8788 QOSUB 32000 

18798 KNOW <2,12>=LBN sRMDAT CL,RN>=47 

18880 QOSUB 28280 

18900 RETURN 

19800 REM WITCH 

19018 RMDAT CLEUEL,RN> =0 

19100 P=F‘ 18 

19120 OL.DDAT=0 5 TOG=0 

19130 QOSUB 32000 

19170 RMDAT CL,RN >=38 

19180 POSITION 23, 1.45? "** UNKNOWN ** 
1.9184 IF CODECS,49>=0 THEN 19300 
19187 OCT=OCT-15 CODEC 3,14 >=0 
19190 CODE<3,49 >=05 POSITION 23,8 
19280 ? "!!! STOLEN !!!" 

19210 QOSUB 32000 

19220 KNOW <2,14 >=LRN5RMDAT <L,RN >=49 
19380 IF CODECS,44>=0 THEN 19580 
19310 CODE C3,4 4 >=0sOCT=0CT—1 
19328 POSITION 23, 3 
19330 ? "!!! STOLEN !)!" 

19340 QOSUB 32800 

19358 KNOW C2,9 >=LRN:RMDAT CL,RN>=44 

19360 CODE C 3,9 =0 

19500 Q 0 S U B 28200 

1.9600 RETURN 

19700 REM DRAGON 

19710 P=P—10 

19715 RMDAT CLEUEL,RN>=8 

19720 OLDDAT=05 IOG=0 

19730 QOSUB 32000 

19748 RMDAT CL,RN>=42 

19745 POSITION 23,17s? "** UNKNOWN ** 
19 7 50 IF C 0 D E C 3>, 4 9 :> = 0 T H E N 1.9800 
19768 OCT=OCT—1 “ CODEC3,49 >=8 
19770 POSITION 23,8 



1.9780 ? " ! ! ! STOLEN ! ! ! " 

1979© GOSUB 32800 
3.9793 C 0 D E < 3 , 3.4 > = 0 

3.9795 KNOW < 2, 3.4 -L..RN s RMDAT < L, RH > =49 

3.9800 GOSUB 28200 

3.9820 GUSUB 3.3000 

3.9830 GOTO 3.2008 

20000 REM STONE 

200 3.0 WA T T-USR < 3.536 > 

20020 POKE 560, 32 s POKE 563. * 156 
20038 FOR 1 = 3.2 TO 3.7 
20040 POSITION 23,1 
20050 PRINT " 

20060 NEXT I 
20890 1=35 

28100 1=1+1:IF I>42 THEN 28380 
28 3.05 IF 1=41 THEN 1=42 
20110 FOR l_=0 TO 2 
28120 FOR RN=3. TO 48 
28130 D=RMDAT < L., RN > 

20148 IF D=I THEN 20280 
29150 NEXT RN 
20168 NEXT L 
20200 POP 
20285 ROOM#-"" 

20210 RN—RN-1sSTRADR-720+L+15*RN 
28220 STRADR-STRADR+NTABLEADR5 K—K—1 
20238 I - 0 R R=S T R A D R T 0 S T R A D R + 3.4 
20248 Z#= " " s D—PEEK < R > s K=K+ 3. s D-D+96 
20250 Z#=CHR# < D+3.2 > 

20260 ROOM# < LEN < ROOM# > + 3. >=Z# 

28278 NEXT R 

20280 T—I—24*IF T-18 THEN T-17 
28285 POSITION 23,Ts? ROOM# 

20290 GOTO 203.08 

28300 RETURN 

21080 REM SCEPTER 

23.100 IF OCT=6 THEN 21200 

2 3.1 10 POSITI ON 2, 22 s ? " IT CAN NOT BE MOOED " s CODE < 3, 43 >=8 

213.20 GOTO 23.500 

21208 OLDDAT=0sTOG-0 
21210 RMDAT < LEUEL,RN >=8 
21228 KNOW <2,OBJC-2>=0 
2 3.230 G O S U B 28208 

23.240 POSITION 2,22s? "** VOU NAME THE SCEPTER **" 

21258 POKE LINEADR+ 3.1,4 s CODE < 3, 43 > =2 

23.508 RETURN 

25088 REM ** I KNOW ** 

25100 I-KNOW<1,KCODE > 

25185 K-CODE<1,I> 

25107 IF OBJC-1 THEN GOTO 25189 

25108 GOTO 25115 

25109 GOSUB 3:2080 

251.1.8 KNOW < 2, KCODE-7 > —LRN 
2513.3. RMDAT < L, RN > -KCODE 

25112 OLDDAT=8u TOG-0 

25113 IF CODE<3,1 > = 3. THEN 25500 
25 3.3.5 NAME#- " " s T=8 

253.20 ROOM#— " " 

25.130 FOR J=0 TO 17 

25148 D-PEEK < NAMEADR+K* 3.8+J > 

25150 Z#-""sZ#-CHR#<D >sIF D=32 THEN T=T+1 
25155 IF T>2 THEN POP s GOTO 253.75 
25160 NAME# <LEN < NAME# > +1. > =2# 

25178 NEXT ..I 

25175 PRINT NAME#?." IS IN THE " ?. 


25.1 90 L= I NT C D-- :i. 00 > s RN=D-L* 100 s RN=RN- :i. 

25200 STRADR=720*L+i5*RN 
25210 STRADR*STRADR+NTABLEADR5 K=-i 
25230 FOR I“STRADR TO STRADR+14 
25240 Z#»""sD-PEEK <I>sK»K+isD=D+96 

25245 Z#=CHR# < D+32 > 

25246 ROOM#<LEN<ROOM#>+1>=Z# 

25250 IF D>255 THEN POP 5 GOTO 25300 
25260 POKE 40922+K,D 

25278 NEXT I 

25300 IF KCODE<8 THEN 25480 
25310 J=KHOW < i , KCODE > : J-,1-41 

25312 POSITION 23,J 

25313 ? ROOM# 

25400 IF OBJC=l THEN 25500 

25405 D=KNOW < 2, KCODE > 

25406 L- I N T < D,-100 > « RN*D-L* 100 

25418 TV" I NT < < RN-1 > > +1 

25420 TX==RN~<TV-1>*6 

25423 TV=TV*3-2 
25425 TX-TX : + : 3-1 

25430 T=OMAPMEM+L*480+TV*20+TX 

25440 POKE T»32 

25500 RETURN 

27080 REM WHO’S THERE 

2701.0 TOG-1 

27180 RN*<MV-1>*6+< MX > 

27110 I-RMDAT<LEUEL.RN >sKCODE*I 
27112 X=CODE<2 * I>sOBJC*CODE<1?I> 

27120 IF OBJC-1 AND CODE<3.- I > = 1 THEN OLDDAT-0S TOG-Os GOTO 

27124 CODE<3,I> *1 

27125 IF X—0 THEN TOG=0sGOTO 27900 

27127 OL.DD AT=X: POKE CUR ADR, X 

27128 NAME#*""5 T*0 
27130 FOR J—0 TO 17 

27140 D-PEEK<NAMEADR+OBJC#18+J> 

27143 Z#*"" 

27145 Z#*CHR#<D>8IF D*32 THEN T*T+1 
27147 IF T>2 THEN POP sGOTO 27156 
27150 NAME# < LEN < NAME# > + . 1 . > =Z# 

27155 NEXT J 

27156 POSITION 2,21 

27160 PRINT NAME#"“? " IS HERE" 

27165 IF OBJC=0 THEN 27167 

27166 GOTO 27178 

27167 IF CODEC3? 7+1> = 1 THEN 27900 
27170 IF KC0DEC43 THEN 27200 
27180 J*KCGDE—41 

27190 POSITION 23,Js? FOUND ***" 

27200 IF OBJCCll THEN 27808 

27210 RMDAT <LEUEL,RN>»@sOLDDAT=0sTO6=0 

27215 OCT*OCT+1 

27216 IF OB.JC—10 THEN OCT=OCT-l 
27220 KNOW<2,OBJC-2>*0 

27240 GOSUB 28280 

27808 IF 0BJC=12 THEN GOSUB 20880 

27810 IF 0B.JC=.!3 THEN S*20s SMAX=28s GOSUB 28800 

27828 REM IF 0BJC=14 THEN GOTO 12800 

27830 REM IF 0BJC*15 THEN GOTO 12008 

27340 REM IF 0BJC*16 THEN GOTO 12808 

27860 IF OBJC-2 THEN GOSUB 16800 

27370 IF OB-IC<2 THEN GOSUB 25800 

27888 IF 0BJC=6 THEN GOSUB 17000 

27890 IF OBJC-3 THEN S=S-9sGOSUB 16080 

27895 IF 0BJC=5 THEN GOSUB 19088 

27908 IF OBJC-4 THEN GOSUB 13008 



2791.0 IF OBJC-7 THEN GOSUB 18600 
27928 IF OBJ0-9 THEN GOSUB 19700 
27930 IF OBJC=10 THEN GOSUB 2100© 

27990 GOTO 12088 

2808© REM STRENGTH 

28810 IF SM>9 THEN SM*9 

28120 FOR 1=9 TO 0 STEP -.1 

28130 POKE LINEADR+I,0:NEXT I 

28135 SM=SsIF SM<=0 THEN 28157 

28137 IF S>9 THEN SM=9 

28148 FOR 1=0 TO SM 

28150 POKE LINEADR +1,77 5 NEXT I 

28155 SM=StIF S>8 THEN 28168 

28157 MOUE=USRC1575,33280,40808,160>:? " ++ VOU HAUE BEEN KILLED 

28158 SCORE=OCT+ 180+P+5 

28159 ? " SCORE! "“SCORE5 POP sGOTO 32200 

28168 RETURN 

28208 REM POWER 
28281 POKE LINEADR+10,14 
28202 POKE LINEADR+19,14 
28205 FOR 1=44 TO 49 
28218 T=CODE<3,I> 

28220 IF T=0 THEN D=0:GOTO 28248 
2823© D=C0DEC2,I> 

28248 POKE L. INEADR+11 -i-1 -43, D 
28258 NEXT I 

28268 IF CODECS,43>=2 THEN POKE LINEADR+11,4 
28298 RETURN 

30000 REM ** ROOM NAME ** 

30010 STRADR*<C MV—1>*6+ C MX-1> >*15+LEUEL+720 
30815 STRADR=STRADR+HTABL.EADR 
38016 ROOM**"" 

30020 FOR I=STRADR TO STRADR+14 
38030 Z*= " " ! D=PEEK C I >! Z*=CHR* C D > 

30040 ROOM* < I....EN C ROOM* > •+• 1 > =Z* 

30050 NEXT I 

38055 MOUE--USR < 1575, 33280,40880, 168 > 

30857 POSITION 2,28 

3006© PRINT "VOU ARE IN THE " f. ROOM* 

38078 IF MX=5 AND MV=2 AND UO1 D=0 AND L.EUEL=0 AND EXPL=0 THEN 38100 
30875 IF MX=3 AND MV=6 AND LEUEL-1 AND CODECS,43>=2 THEN 30288 
30880 GOTO 30500 

30100 IF CODEC3, 45> = 1 THEN GOSUB 2.0000 
30110 S=SMAX!GOSUB 28000 
38120 GOSUB 28208 
30130 GOTO 30500 

30288 M0UE=U8RC1575,33280,48800,168> 

30218 POSITION 2,28 

30220 ? "*** VOU HAUE SAUED THE KINGDOM +**" 

38225 SCORE*1008+P+5 

30227 ? " SCORE: "5 SCORE 

30230 POP “. GOTO 32200 
30580 RETURN 
31800 REM 

31005 IF EXPL=1 THEN 31850 
31018 D=PEEK C CUR ADR- .1.9 > : D=D-2 
3.1.020 D=D— C I NT C D •■''£> 4 +64 
31030 IF D=0 THEN 31850 
31840 GOTO 31158 

31050 IF X=60 THEN L.EUEL.=LEUEL-1 
3.1060 IF X=62 THEN LEUEL-LEUEL+l 
31090 IF LEUEL<8 THEN LEUEL.-8! GOTO 31150 
31095 IF LEUEL>2 THEN LEUEL=2!GOTO 31158 
31100 MAPMEM=OMAPMEM+480*LEUEL+SI+60 
31118 HIMAPMEM--1 NT C MAPMEM^256 > 

31 1 20 I OMAPMFM —• MAPMFM—W T M f~t PMl“~M Sr-. 


31130 WAIT=USR<1536> 

3 i 140 POKE LMSLO, EOMAPMEM: POKE LMSHI , HIMAPMEM 
31150 RETURN 
32000 REM 

321OO L.= I NT •:! RND < 0 > *2 > 

32110 RN=INT CRND < 0>*47> +1 
32120 D-RMDAT<L,RN> 

32130 IF D>0 THEN 32100 
32140 LRN=E*100+RN 
32150 RETURN 

32200 ? " DO VOU WANT TO PEAS' AGAIN?" s POKE 764,255 

32201 D=PEEK<764 > 

32202 IF 0=255 THEN 32201 

32203 OLDDAT=0 

32205 WAIT=USR <1536 >sPOKE 559,0sPOKE 560,169 
32206* POKE 561,6s POKE 756,224 

32297 SETCOEOR 1,0, 14"SETCOEOR 2,9,6*« SETCOLOR 0,2, 1W 

32208 WAIT=U8R<1536 >sPOKE 559,34 

32209 FOR L=0 TO 2 

32210 FOR V= 1 TO 22 STEP 3 
32220 FOR X=2 TO 17 STEP 3 
32230 POKE OMAPMEM+L*480+V*20+X 0 
32240 NEXT XsPOKE 34440,10 
32250 NEXT Vs POKE 34440,0 

32260 NEXT L. 

32300 FOR 1=1 TO 49 
32310 CODE < 3,I> =0sNEXT I 
32320 FOR !....=O TO 2 
32330 FOR 1=1 TO 48 

32340 RMDAT<L,I>=0sNEXT IsPOKE 34440,10 

32350 NEXT E5 POKE 34448,0 

32480 FOR 1=1 TO 2 

32410 FOR J=1 TO 14 

32420 KNOW < I, ,T>=8 

32430 NEXT J:POKE 34440,10 

32440 NEXT IsPOKE 34440,0 

32500 GOSUB 1000 

32680 GOTO 290 
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